<%
  ' Si el usuario no está conectado, redirigir a la página de inicio de sesión
  If Not Session("auth_granted") = "true" Then 
  	cadURL = "Login.asp"
	response.write "<script>window.open('"& cadURL & "','_top');</script>"
	Response.End
  End If 
%>
<!--#include file="Librerias/mssql-ds.dll" -->
<!--#include file="Librerias/security-ds.dll" -->
<!--#include file="Funciones/FuncionesGenerales.asp" -->
<link href="Estilos/EstilosPagina.css" rel="stylesheet" type="text/css">

<script language="javascript">
function CargarInsumos(vID, vPRODUCTOS, vAPERTURA){
	for (i=0;i<=vPRODUCTOS;i++){
		document.getElementById('celda'+i).style.backgroundColor='#FFFFFF';
	}
	window.open('FrameInsumos.asp?qIdentificador='+vID+'&qApertura='+vAPERTURA, 'frameINSUMOS');
}
</script>

<%
'// Recuperar la gestion de trabajo
qGestion = Session("auth_granted_poa_gestion")
qIdentificador = request.querystring("qIdentificador")

'recuperar la apertura programatica
sSQL = ""
sSQL = sSQL & " SELECT aper_programa FROM AperturaProgramatica WHERE (aper_id = "& Session("auth_granted_poa_carpeta_apertura_programatica_mayor") &")"
NumeroApertura = RecordBD(sSQL, "aper_programa", 1)

sSQL = ""
sSQL = sSQL & " SELECT aper_id, aper_programa, aper_proyecto, aper_actividad, aper_descripcion, aper_ponderacion"
sSQL = sSQL & " FROM AperturaProgramatica"
sSQL = sSQL & " WHERE (aper_estado = 1) AND (aper_gestion = "& qGestion &")"
sSQL = sSQL & " AND (Len(aper_programa) = 2 AND aper_programa = "& NumeroApertura &") AND ((aper_proyecto <> '0000') OR (aper_actividad <> '000'))"
MatrizApertura = MatrixBD(sSQL, 1)
If VarType(MatrizApertura) = 8  then
	NumeroRegistros = -1
Else
	NumeroRegistros = UBound(MatrizApertura,2)	
End If

If Session("auth_granted_poa_unidad") = 0 Then
	sSQL = ""
	sSQL = sSQL & " SELECT p"& qGestion &"_id, p"& qGestion &"_producto, p"& qGestion &"_objetivo, p"& qGestion &"_codigo, aper_id"
	sSQL = sSQL & " FROM Productos"& qGestion &""
	sSQL = sSQL & " WHERE (o"& qGestion &"_id = "& qIdentificador &")"
	'sSQL = sSQL & " AND (aper_id IN ("
	'sSQL = sSQL & " SELECT aper_id"
	'sSQL = sSQL & " FROM AperturaProgramatica"
	'sSQL = sSQL & " WHERE (aper_estado = 1)"
	'sSQL = sSQL & " AND (aper_gestion = "& qGestion &")"
	'sSQL = sSQL & " AND (Len(aper_programa) = 2"
	'sSQL = sSQL & " AND aper_programa = "& NumeroApertura &")"
	'sSQL = sSQL & " AND ((aper_proyecto <> '0000') OR (aper_actividad <> '000'))))"
Else
	sSQL = ""
	sSQL = sSQL & " SELECT p"& qGestion &"_id, p"& qGestion &"_producto, p"& qGestion &"_objetivo, p"& qGestion &"_codigo, aper_id"
	sSQL = sSQL & " FROM Productos"& qGestion &""
	sSQL = sSQL & " WHERE (o"& qGestion &"_id = "& qIdentificador &")"
	'sSQL = sSQL & " AND (aper_id IN ("
	'sSQL = sSQL & " SELECT aper_id"
	'sSQL = sSQL & " FROM AperturaProgramatica"
	'sSQL = sSQL & " WHERE (aper_estado = 1)"
	'sSQL = sSQL & " AND (aper_gestion = "& qGestion &")"
	'sSQL = sSQL & " AND (Len(aper_programa) = 2"
	'sSQL = sSQL & " AND aper_programa = "& NumeroApertura &")"
	'sSQL = sSQL & " AND ((aper_proyecto <> '0000') OR (aper_actividad <> '000'))))"
	'sSQL = sSQL & " AND (uni_id = "& Session("auth_granted_poa_unidad") &")"
	'sSQL = sSQL & " WHERE (o"& qGestion &"_id = "& qIdentificador &") AND (uni_id = "& Session("auth_granted_poa_unidad") &") AND (aper_id = "& Session("auth_granted_poa_apertura_programatica") &")"
End If
MatrizProductos = MatrixBD(sSQL, 1)
If VarType(MatrizProductos) = 8  then
	RegistrosProductos = -1
Else
	RegistrosProductos = UBound(MatrizProductos,2)	
End If
%>
        
<table width="100%" border="1" cellspacing="0" cellpadding="1" align="justify" bordercolor="#999999" style="border-collapse:collapse;" bgcolor="#FFFFFF">
  <% For prod = 0 To RegistrosProductos %>
  <tr id="celda<%=prod%>">
    <td align="center"><input name="imagen" type="image" onClick="CargarInsumos(<%=MatrizProductos(0,prod)%>, <%=RegistrosProductos%>, <%=MatrizProductos(4,prod)%>); document.getElementById('celda<%=prod%>').style.backgroundColor='#FEE363';" src="Iconos/bullet_gray.png"></td>
    <td>&nbsp;&nbsp;<%=prod+1%>&nbsp;&nbsp;</td>
    <td><%=MatrizProductos(3,prod)%></td>
    <td><%=MatrizProductos(1,prod)%></td>
    <td><%=MatrizProductos(2,prod)%></td>
  </tr>
  <% Next %>
</table>